﻿Imports Control_Vuelos_BL
Imports Control_Vuelos_BE
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraEditors

Public Class frmChk_Arribo
    Inherits frmBaseMantenimiento

    ReadOnly V_Maestros As New MaestrosBL()
    Private ReadOnly _Manifiesto As New ManifiestoBL()
    Private ReadOnly _ProgramaViaje As New ProgramaViajeBL()
    Private ReadOnly _MPersonal As New Movimiento_PersonalBL()
    Private ReadOnly mPasajeroBL As New PasajeroBL()
    Private mPasajeroBE As New M_PasajeroBE
    Private p_CodViaje As String
    Private p_CodLugarOrigen As String
    Private p_CodLugarDestino As String
    Private p_CodEmpresa As String
    Private p_FchViaje As Date
    Private p_DesLugarOrigen As String
    Private p_DesLugarDestino As String
    Private p_NomEmpresa As String
    Private p_CodPasajero As String
    Private p_MailPasajero As String
    Private p_TlfPasajero As String
    Private p_RpcPasajero As String
    Private p_cntroCostos2 As String
    Private tbTipoPasajero, tbAnalisis, tbCuentas, tbLugar As New DataTable

    Private Sub frmChk_Arribo_Load(sender As Object, e As EventArgs) Handles Me.Load
        AddHandler ModAdm_Checking1.TreeList1.FocusedNodeChanged, AddressOf prl_Select_Tree
        AddHandler ModAdm_Checking1.TreeList2.FocusedNodeChanged, AddressOf prl_Select_TreeCerrado
        AddHandler ModAdm_Checking1.BtnNewPasajero.ItemClick, AddressOf prl_activa_NewPasajero
        AddHandler ModAdm_Checking1.ModChkArriboNuevo1.cmdCancel.Click, AddressOf prl_desactiva_NewPasajero
        AddHandler ModAdm_Checking1.ModChkArriboNuevo1.cmdOk.Click, AddressOf prl_ClickGrabar
        AddHandler ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.Validating, AddressOf prl_ValidarDni
        AddHandler ModAdm_Checking1.GridView1.InitNewRow, AddressOf prl_AgregarGrid
        AddHandler ModAdm_Checking1.GridView1.ValidatingEditor, AddressOf prl_ValidarGrid
        AddHandler ModAdm_Checking1.RepositoryItemImageComboBox4.EditValueChanged, AddressOf prl_ValidarExcepcion
        AddHandler ModAdm_Checking1.BtnCheckIN.ItemClick, AddressOf prl_Checkin
        AddHandler BarBtnRefresh.ItemClick, AddressOf prl_Refresh
        BarBtnCancelar.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
        BarBtnImprimir.Visibility = DevExpress.XtraBars.BarItemVisibility.Never

        prl_Refresh()
        prl_cargacombos()
    End Sub

    Private Sub prl_cargacombos()
        tbTipoPasajero = V_Maestros.pr_GetTipoPasajero()
        ' tipo de pasajero
        ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.Properties.DataSource = tbTipoPasajero

        tbLugar = V_Maestros.pr_GetLugarResidencia()
        'lugar de residencia
        ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.Properties.DataSource = tbLugar

        tbAnalisis = V_Maestros.pr_GetAnalisis("")
        ' analisis 
        ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.Properties.DataSource = tbAnalisis
        ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.Properties.View.BestFitColumns()

        tbCuentas = V_Maestros.pr_GetCuentas("1")
        ' centro de costos
        ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.Properties.DataSource = tbCuentas
        ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.Properties.View.BestFitColumns()
    End Sub

    Private Sub prl_Refresh()
        ModAdm_Checking1.TreeList1.DataSource = _ProgramaViaje.pr_ListarProgramaViajeTreeListChecking(p_coduser)
        ModAdm_Checking1.TreeList1.ExpandAll()
        ModAdm_Checking1.TreeList1.BestFitColumns()
        ModAdm_Checking1.GridControl1.DataSource = _Manifiesto.pr_ListarManifiesto("")
        ModAdm_Checking1.GridView1.BestFitColumns()
        ModAdm_Checking1.LCNuevoArribo.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
        ModAdm_Checking1.TreeList2.DataSource = _ProgramaViaje.pr_ListarProgramaViajeTreeListCheckingCerrado(p_coduser)
        ModAdm_Checking1.TreeList2.ExpandAll()
        ModAdm_Checking1.TreeList2.BestFitColumns()
    End Sub

    Private Sub prl_Checkin()
        ModAdm_Checking1.GridView1.PostEditor()
        ModAdm_Checking1.GridView1.MoveFirst()
        Dim oDialogResult As DialogResult
        Using sfrmChk As New frmChk_ArriboMessage() With {.Text = " Realizando el Check-IN de pasajeros "}
            sfrmChk.npMain.Text = String.Format(" Se procederá a confirmar el arribo de los pasajeros. {0} Además, se procederá a generar las reservas de retorno.  {0}", Constants.vbCrLf)
            oDialogResult = sfrmChk.ShowDialog()
            If oDialogResult = System.Windows.Forms.DialogResult.OK Then
                Dim sTextoCheck As String = ""
                Dim sTextoNew As String = ""
                Dim sTextoNoArribo As String = ""
                Dim sTextoBajaron As String = ""
                Dim nHighScreen As Integer = 164
                Dim i As Integer
                For i = 0 To ModAdm_Checking1.GridView1.RowCount - 1
                    Dim DRPasajero As DataRow
                    DRPasajero = CType(ModAdm_Checking1.GridView1.GetDataRow(i), DataRow)
                    Dim bFlgCheckin As Boolean = CType(DRPasajero("FlgChecking"), Boolean)
                    Dim sTipPorExcepcion As String = CType(IIf(IsDBNull(DRPasajero("TipPorExcepcion")), "", DRPasajero("TipPorExcepcion")), String)
                    If bFlgCheckin = True Then
                        If IsDBNull(sTipPorExcepcion) = False Then
                            If sTipPorExcepcion = "1" Then
                                sTextoNew = String.Format("{0}* {1} {2} {3}{4}", sTextoNew, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                            Else
                                sTextoCheck = String.Format("{0}* {1} {2} {3}{4}", sTextoCheck, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                            End If
                        Else
                            sTextoCheck = String.Format("{0}* {1} {2} {3}{4}", sTextoCheck, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                        End If
                    Else
                        If IsDBNull(DRPasajero("TipPorExcepcion")) = False Then
                            If DRPasajero("TipPorExcepcion") = "2" Then
                                sTextoNoArribo = String.Format("{0}* {1} {2} {3}{4}", sTextoNoArribo, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                            Else
                                sTextoBajaron = String.Format("{0}* {1} {2} {3}{4}", sTextoBajaron, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                            End If
                        Else
                            sTextoNoArribo = String.Format("{0}* {1} {2} {3}{4}", sTextoNoArribo, DRPasajero("AppPasajero"), DRPasajero("ApmPasajero"), DRPasajero("NomPasajero"), Constants.vbCrLf)
                        End If
                    End If
                    nHighScreen = nHighScreen + 30
                Next
                Dim sFrmChkPasajero As New frmChk_ArriboMessage() With {.Text = " Confirmando el Check-IN "}
                sFrmChkPasajero.npMain.Text = IIf(sTextoCheck Is String.Empty, "", String.Format(" Pasajeros Checkeados {0}{0}{1}{0}", Constants.vbCrLf, sTextoCheck)) & IIf(sTextoNew Is String.Empty, "", String.Format(" Pasajeros Nuevos {0}{0}{1}{0}", Constants.vbCrLf, sTextoNew)) & IIf(sTextoNoArribo Is String.Empty, "", String.Format(" Pasajeros No arribaron {0}{0}{1}{0}", Constants.vbCrLf, sTextoNoArribo)) & IIf(sTextoBajaron Is String.Empty, "", String.Format(" Pasajeros Bajados del vuelo {0}{0}{1}{0}", Constants.vbCrLf, sTextoBajaron))
                sFrmChkPasajero.Height = nHighScreen
                oDialogResult = sFrmChkPasajero.ShowDialog()
                Dim DtManifiesto As DataTable = CType(ModAdm_Checking1.GridControl1.DataSource, DataTable)
                If oDialogResult = System.Windows.Forms.DialogResult.OK Then
                    If _MPersonal.pr_GrabarCheckInPasajeros(DtManifiesto, p_CodViaje, p_coduser) Then
                        prl_Refresh()
                    End If
                End If
            End If
        End Using
    End Sub

    Private Sub prl_ValidarExcepcion(sender As Object, e As EventArgs)
        ModAdm_Checking1.GridView1.PostEditor()
        Dim aImageComboBox As ImageComboBoxEdit = CType(sender, ImageComboBoxEdit)
        Dim oFlgChecking As Boolean = Convert.ToBoolean(ModAdm_Checking1.GridView1.GetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "FlgChecking"))
        Dim oCodReserva As Integer = Convert.ToInt32(IIf(IsDBNull(ModAdm_Checking1.GridView1.GetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "CodReserva")), 0, ModAdm_Checking1.GridView1.GetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "CodReserva")))
        If aImageComboBox.SelectedItem.ToString = "No Embarcó" AndAlso oFlgChecking = True Then
            XtraMessageBox.Show(" No puede tener checking si el pasajero no embarcó...")
            ModAdm_Checking1.GridView1.SetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "FlgChecking", False)
        End If
        If aImageComboBox.SelectedItem.ToString = "Bajado del Vuelo" AndAlso oFlgChecking = True Then
            XtraMessageBox.Show(" No puede tener checking si al pasajero lo bajaron del vuelo...")
            ModAdm_Checking1.GridView1.SetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "FlgChecking", False)
        End If
        If aImageComboBox.SelectedItem.ToString = "Adicionado al Manifiesto" Then
            If oCodReserva > 0 Then
                XtraMessageBox.Show(" El Pasajero no es nuevo ")
                ModAdm_Checking1.GridView1.SetRowCellValue(ModAdm_Checking1.GridView1.FocusedRowHandle, "TipPorExcepcion", "0")
            End If
        End If
    End Sub

    Private Sub prl_ValidarGrid(ByVal sender As Object, ByVal e As DevExpress.XtraEditors.Controls.BaseContainerValidateEditorEventArgs)
        Dim View As GridView = CType(sender, GridView)
        If View.FocusedColumn.FieldName = "FlgChecking" Then
            'Get the currently edited value 
            Dim oFlgChecking As Boolean = Convert.ToBoolean(e.Value)
            'Specify validation criteria 
            Dim oTipPorExcepcion As String = View.GetRowCellValue(View.FocusedRowHandle, "TipPorExcepcion").ToString
            If oTipPorExcepcion = "1" AndAlso oFlgChecking = False Then
                e.Valid = False
                e.ErrorText = " El Checking no puede estar vacío porque es un pasajero nuevo... "
                View.SetRowCellValue(View.FocusedRowHandle, "FlgChecking", True)
            End If
            If oTipPorExcepcion = "2" AndAlso oFlgChecking = True Then
                e.Valid = False
                e.ErrorText = " No puede tener checking si el pasajero no embarco..."
                View.SetRowCellValue(View.FocusedRowHandle, "FlgChecking", False)
            End If
            If oTipPorExcepcion = "3" AndAlso oFlgChecking = True Then
                e.Valid = False
                e.ErrorText = " No puede tener checking si al pasajero lo bajaron del vuelo..."
                View.SetRowCellValue(View.FocusedRowHandle, "FlgChecking", False)
            End If
        End If
    End Sub

    Private Sub prl_ClickGrabar()
        ModAdm_Checking1.GridView1.AddNewRow()
    End Sub

    Private Sub prl_AgregarGrid(sender As Object, e As InitNewRowEventArgs)
        Dim view As GridView = TryCast(sender, GridView)
        view.SetRowCellValue(e.RowHandle, view.Columns("FlgChecking"), True)
        view.SetRowCellValue(e.RowHandle, view.Columns("FlgLock"), 1)
        view.SetRowCellValue(e.RowHandle, view.Columns("FlgResponsable"), 0)
        view.SetRowCellValue(e.RowHandle, view.Columns("AppPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("ApmPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("NomPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("NroDocumentoId"), ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("TipPorExcepcion"), "1")
        view.SetRowCellValue(e.RowHandle, view.Columns("ObsManifiesto"), "Pasajero ingresado fuera de manifiesto ")
        view.SetRowCellValue(e.RowHandle, view.Columns("CodAnalisis"), ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("CodCentroCosto"), ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("TipPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("FchRetorno"), ModAdm_Checking1.ModChkArriboNuevo1.cboFchRetorno.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("NacionalidadPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtNacionalidad.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("MailPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtEmail.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("PsoPasajero"), 70)
        view.SetRowCellValue(e.RowHandle, view.Columns("PsoEquipajePasajero"), 10)
        view.SetRowCellValue(e.RowHandle, view.Columns("TlfPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("RpcPasajero"), ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("CodLugarResidencia"), ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.EditValue)
        view.SetRowCellValue(e.RowHandle, view.Columns("FchViaje"), CType(p_FchViaje, Date))
        view.SetRowCellValue(e.RowHandle, view.Columns("CodLugarOrigen"), p_CodLugarOrigen)
        view.SetRowCellValue(e.RowHandle, view.Columns("CodViaje"), p_CodViaje)
        If ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue = "1" Then
            view.SetRowCellValue(e.RowHandle, view.Columns("Desanl"), "Personal Empresa")
        Else
            view.SetRowCellValue(e.RowHandle, view.Columns("Desanl"), ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.Text.Trim)
        End If
        view.PostEditor()
        prl_LimpiarEntradaDatos()
        prl_desactiva_NewPasajero()
    End Sub

    Private Sub prl_LimpiarEntradaDatos()
        ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.cboFchRetorno.EditValue = Date.Now
        ModAdm_Checking1.ModChkArriboNuevo1.cboFchRetorno.Refresh()
        ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.EditValue = "6"
        ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.EditValue = "115"
        ModAdm_Checking1.ModChkArriboNuevo1.txtEmail.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtNacionalidad.EditValue = "PERUANA"
        ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue = ""
        ModAdm_Checking1.ModChkArriboNuevo1.chkAsumeMarsa.EditValue = False
        ModAdm_Checking1.ModChkArriboNuevo1.chkPermiso.EditValue = False
        ModAdm_Checking1.ModChkArriboNuevo1.chkPrestamo.EditValue = False
    End Sub

    Private Sub prl_ValidarDni(ByVal sender As Object, ByVal e As EventArgs)
        Dim edit As TextEdit = CType(sender, TextEdit)
        If prl_ValidarDni(edit.EditValue) Then
        End If
    End Sub

    Public Sub prl_desactiva_NewPasajero()
        ModAdm_Checking1.LCNuevoArribo.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
    End Sub

    Public Sub prl_activa_NewPasajero()
        ModAdm_Checking1.LCNuevoArribo.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
        prl_LimpiarEntradaDatos()
        ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.Focus()
    End Sub

    Public Sub prl_Select_Tree(ByVal sender As Object, ByVal e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs)
        ModAdm_Checking1.BtnCheckIN.Enabled = True
        ModAdm_Checking1.BtnNewPasajero.Enabled = True
        If e.Node.ParentNode Is Nothing Then
            ModAdm_Checking1.GridBand1.Caption = "Manifiesto  "
            ModAdm_Checking1.GridControl1.DataSource = Nothing
            BarBtnImprimir.Enabled = False
        Else
            ModAdm_Checking1.GridBand1.Caption = String.Format("Manifiesto : {0} - {1} : {2}", e.Node.GetValue(0), e.Node.GetValue(1), Format(e.Node.GetValue(3), "dd/MM/yyyy"))
            p_CodViaje = e.Node.GetValue(0)
            p_DesLugarOrigen = e.Node.ParentNode.GetValue(0)
            p_DesLugarDestino = e.Node.GetValue(1)
            p_FchViaje = e.Node.GetValue(3)
            p_NomEmpresa = e.Node.GetValue(2)
            p_CodEmpresa = e.Node.GetValue(6)
            p_CodLugarOrigen = e.Node.GetValue(7)
            p_CodLugarDestino = e.Node.GetValue(8)
            ModAdm_Checking1.GridControl1.DataSource = _Manifiesto.pr_ListarManifiesto(p_CodViaje)
            ModAdm_Checking1.GridView1.OptionsBehavior.Editable = True
            If ModAdm_Checking1.GridView1.RowCount > 0 Then
                BarBtnImprimir.Enabled = True
            Else
                BarBtnImprimir.Enabled = False
            End If
        End If
    End Sub

    Public Sub prl_Select_TreeCerrado(ByVal sender As Object, ByVal e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs)
        ModAdm_Checking1.BtnCheckIN.Enabled = False
        ModAdm_Checking1.BtnNewPasajero.Enabled = False
        If e.Node.ParentNode Is Nothing Then
            ModAdm_Checking1.GridBand1.Caption = "Manifiestos con Check-In"
            ModAdm_Checking1.GridControl1.DataSource = Nothing
            BarBtnImprimir.Enabled = False
        Else
            ModAdm_Checking1.GridBand1.Caption = String.Format("Manifiesto con Check-In: {0} - {1} : {2}  (Cerrado)", e.Node.GetValue(0), e.Node.GetValue(1), Format(e.Node.GetValue(3), "dd/MM/yyyy"))
            p_CodViaje = e.Node.GetValue(0)
            p_DesLugarOrigen = e.Node.ParentNode.GetValue(0)
            p_DesLugarDestino = e.Node.GetValue(1)
            p_FchViaje = e.Node.GetValue(3)
            p_NomEmpresa = e.Node.GetValue(2)
            p_CodEmpresa = e.Node.GetValue(6)
            p_CodLugarOrigen = e.Node.GetValue(7)
            p_CodLugarDestino = e.Node.GetValue(8)
            ModAdm_Checking1.GridControl1.DataSource = _Manifiesto.pr_ListarManifiesto(p_CodViaje)
            ModAdm_Checking1.GridView1.OptionsBehavior.Editable = False
            If ModAdm_Checking1.GridView1.RowCount > 0 Then
                BarBtnImprimir.Enabled = True
            Else
                BarBtnImprimir.Enabled = False
            End If
        End If
    End Sub

    Private Function prl_validarDni(ByVal p_codigoidentificacion As String) As Boolean
        Dim sDni As String
        If p_codigoidentificacion = Nothing Then
            sDni = ""
        Else
            sDni = IIf(IsDBNull(p_codigoidentificacion), "", p_codigoidentificacion.ToString)
        End If
        If sDni.Trim <> "" Then
            ' busco el numero de dni y si existe muestro los datos sino se crea
            Dim ncod As Integer = mPasajeroBL.pr_TraerCodigo(sDni.Trim)
            mPasajeroBE = mPasajeroBL.pr_TraerPasajero(ncod)
            If mPasajeroBE.CodPasajero > 0 Then
                p_CodPasajero = mPasajeroBE.CodPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.txtNroDocumentoId.EditValue = mPasajeroBE.NroDocumentoId
                ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue = mPasajeroBE.AppPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue = mPasajeroBE.ApmPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue = mPasajeroBE.NomPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.txtNacionalidad.EditValue = mPasajeroBE.NacionalidadPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue = mPasajeroBE.TlfPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue = mPasajeroBE.RpcPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.txtEmail.EditValue = mPasajeroBE.MailPasajero
                ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue = mPasajeroBE.CodAnalisis
                ModAdm_Checking1.ModChkArriboNuevo1.cboResidencia.EditValue = mPasajeroBE.CodLugarResidencia
                p_TlfPasajero = mPasajeroBE.TlfPasajero
                p_RpcPasajero = mPasajeroBE.RpcPasajero
                p_MailPasajero = mPasajeroBE.MailPasajero
            End If

            If ModAdm_Checking1.ModChkArriboNuevo1.cboTipoPasajero.EditValue = "1" Then
                Dim _TCentroCostoVE As New T_CentroCostoTrabajadorVE
                Dim _TCentroCosto As New T_CentroCostoTrabajadorBL
                _TCentroCostoVE = _TCentroCosto.pr_RecuperarTrabajador(sDni.Trim)
                If _TCentroCostoVE.apellidopaterno <> "" Then
                    ModAdm_Checking1.ModChkArriboNuevo1.txtAppPasajero.EditValue = _TCentroCostoVE.apellidopaterno
                    ModAdm_Checking1.ModChkArriboNuevo1.txtApmPasajero.EditValue = _TCentroCostoVE.apellidomaterno
                    ModAdm_Checking1.ModChkArriboNuevo1.txtNomPasajero.EditValue = _TCentroCostoVE.nombres
                    ModAdm_Checking1.ModChkArriboNuevo1.txtTelefono.EditValue = _TCentroCostoVE.telefonovendor
                    ModAdm_Checking1.ModChkArriboNuevo1.txtMovil.EditValue = _TCentroCostoVE.telefonocelular
                    p_TlfPasajero = _TCentroCostoVE.telefonovendor
                    p_RpcPasajero = _TCentroCostoVE.telefonocelular
                    ModAdm_Checking1.ModChkArriboNuevo1.cboAnalisis.EditValue = _TCentroCostoVE.vendor & " "
                    ModAdm_Checking1.ModChkArriboNuevo1.cboCosto.EditValue = _TCentroCostoVE.centrocostos1.Trim
                    p_cntroCostos2 = _TCentroCostoVE.centrocostos2.Trim
                End If
            End If
        End If
        Return True
    End Function

End Class